﻿''' <summary>
''' Contains a reference to the GameEngine, GameTime and collision data used by calls to OnCollision.
''' </summary>
''' <remarks></remarks>
Public Class CollisionEventArgs
    Inherits GameEngineEventArgs

    ''' <summary>
    ''' The other object colliding with the reciever of these EventArgs.
    ''' </summary>
    ''' <remarks></remarks>
    Public ReadOnly CollisionObject As GameObject

    Public Sub New(ByVal updateArgs As GameEngineEventArgs, ByVal other As GameObject)
        MyBase.New(updateArgs.Engine, updateArgs.Time)
        CollisionObject = other
    End Sub

    Public Sub New(ByVal source As GameEngine, ByVal timeOfEvent As GameTime, ByVal other As GameObject)
        MyBase.New(source, timeOfEvent)
        CollisionObject = other
    End Sub
End Class
